home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 128 #18 / q18.d81 / 128 input.asc < prev    next >
Encoding:
Text File  |  1990-01-01  |  416 b   |  14 lines
  1.  
  2.  
  3. 30000 printchr$(27)"m"chr$(27)"f":printpq$;:sys52591
  4. 30010 getkeya$:ifa$=chr$(13)then30030:elseifpos(0)=lqthena$=""
  5. 30020 printa$;:goto30010
  6. 30030 sys52639:pq$="":print""spc(lq-1);
  7. 30040 close2:open2,3,2:fori=1tolq:get#2,a$:print"";:ifa$<>" "theneq=lq-i+1:i=lq:next:elsenext
  8. 30050 print"";:close2:open2,3,2:fori=1toeq:ifeqthenget#2,aa$
  9. 30060 pq$=pq$+aa$
  10. 30070 next:close2:print""chr$(27)"l":return
  11.  
  12. ready.
  13.  
  14.